home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
mov2prd.arc
/
MOVTOPRD.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1991-12-04
|
2KB
|
34 lines
MOV2PROD: CMD PROMPT('Move an Object to Production')
/* Command processing program is CPP4200 */
PARM KWD(OBJ) TYPE(OBJ) MIN(1) PROMPT('Object +
name:')
OBJ: QUAL TYPE(*NAME) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
EXPR(*YES) PROMPT('Library name:')
OBJTYPE: PARM KWD(OBJTYPE) TYPE(*CHAR) LEN(8) RSTD(*YES) +
SPCVAL((*CHTFMT) (*CLS) (*CMD) (*CUD) +
(*DEVD) (*DOC) (*DOCL) (*DTAARA) (*DTAQ) +
(*EDTD) (*FCT) (*FILE) (*GSS) (*JOBD) +
(*JOBQ) (*JRN) (*JRNRCV) (*LIB) (*LIND) +
(*MSGF) (*MSGQ) (*OUTQ) (*PGM) (*PRTIMG) +
(*SBSD) (*SPADCT) (*SSND) (*TBL) (*USRPRF)) +
MIN(1) MAX(1) EXPR(*YES) PROMPT('Object +
type:')
PARM KWD(TOLIB) TYPE(*NAME) MIN(1) EXPR(*YES) +
PROMPT('Production library:')
PARM KWD(OWNER) TYPE(*NAME) DFT(*SAME) +
SPCVAL((*SAME)) EXPR(*YES) PROMPT('Owner of +
production version:')
PARM KWD(REPLACE) TYPE(*LGL) RSTD(*YES) DFT(*NO) +
SPCVAL((*YES '1') (*NO '0')) EXPR(*YES) +
PROMPT('Replace existing object:')
PARM KWD(RTNAUT) TYPE(*LGL) RSTD(*YES) DFT(*YES) +
SPCVAL((*YES '1') (*NO '0')) EXPR(*YES) +
PROMPT('Retain production authority:')